unit UThread;

interface

uses
  Windows, SysUtils, Dialogs, ADODB, Variants, DBGridEh, Messages, Classes,
  SmpExprCalc, DB, ComCtrls, Forms;

procedure CrtThread(fun: Pointer);

implementation

procedure CrtThread(fun: Pointer);
var
  ID: THandle;
begin
  CreateThread(nil, 0, fun, nil, 0, ID);
end;

end.
